home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / new_ugp.dxr / 00047_Welcome Menu Init.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  544 b   |  15 lines
  1. on exitFrame
  2.   global baseMemory
  3.   new(script "Title Class")
  4.   set newMenu to CreateMenu([#statusMessage: "Click on a button"])
  5.   SetStatusMember(newMenu, [#statusMember: "welcome status"])
  6.   NewVideoDisplay(newMenu, [#cleanup: 0])
  7.   mmButton(newMenu, [#downMember: "ugpA_61"])
  8.   quitButton(newMenu, [#downMember: "ugpA_71"])
  9.   ShowVolumeControl()
  10.   set vidseqParams to [#memberNum: "welcome.mov"]
  11.   NewEvent(newMenu, NewObject(newMenu, "Video Sequence Class", vidseqParams))
  12.   cursor(-1)
  13.   put "Memory used:" && baseMemory - the freeBytes
  14. end
  15.